home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / pascal / sndsgood.zip / B_EXMPLE.BAS next >
BASIC Source File  |  1990-03-08  |  187b  |  11 lines
  1. OPEN "I", 1, "SND1.SND"
  2. soundbuffer$ = INPUT$(119, #1)
  3. CLOSE #1
  4. CALL installit
  5. CALLS dosound(soundbuffer$)
  6. check:
  7. CALLS eventsleft(a%)
  8. IF a% <> 0 THEN GOTO check
  9. CALL removeit
  10.  
  11.